Описание
Обновляет сведения о подключении для присоединенной таблицы (только в рабочей области ядра Microsoft Jet).

таблица.RefreshLink

Параметры
таблица
задает объект TableDef, представляющий присоединенную таблицу, для которой требуется обновить сведения о подключении.

Замечания
Сведения о подключении таблицы изменяют путем сброса значения свойства Connect соответствующего объекта TableDef, после чего следует применить метод RefreshLink для обновления этих сведений. При использовании метода RefreshLink свойства присоединенной таблицы и объекты Relation не изменяются.
Для того чтобы заданные сведения о подключении были обновлены во всех семействах, связанных с описывающим присоединенную таблицу объектом TableDef, следует вызвать метод Refresh для каждого из семейств.

Пример
Следующая программа использует свойства Connect и SourceTableName для присоединения различных внешних таблиц к базе данных Microsoft. Для выполнения данной процедуры требуется процедура ConnectOutput.

Sub ConnectX()

	Dim dbsTemp As Database
	Dim strMenu As String
	Dim strInput As String

	' Открывает базу данных Microsoft Jet, к которой 
	' будет присоединена таблица.
	Set dbsTemp = OpenDatabase("DB1.mdb")
	' Сборка текста меню.
	strMenu = "Введите номер, определяющий источник:" & vbCr
	strMenu = strMenu & "   1. База данных Microsoft Jet" & vbCr
	strMenu = strMenu & "   2. Таблица Microsoft FoxPro 3.0" & vbCr
	strMenu = strMenu & "   3. Таблица dBASE" & vbCr
	strMenu = strMenu & "   4. Таблица Paradox" & vbCr
	strMenu = strMenu & "   M. (см. варианты 5-9)"
	' Принимает выбор пользователя.
	strInput = InputBox(strMenu)

	If UCase(strInput) = "M" Then
		' Сборка текста меню.
		strMenu = "Введите номер, определяющий источник:" & vbCr
		strMenu = strMenu & "   5. Электронная таблица Microsoft Excel" & vbCr
		strMenu = strMenu & "   6. Электронная таблица Lotus" & vbCr
		strMenu = strMenu & "   7. Текст, разделяемый запятыми (CSV)" & vbCr
		strMenu = strMenu & "   8. Таблица HTML" & vbCr
		strMenu = strMenu & "   9. Папка Microsoft Exchange"
		' Принимает выбор пользователя.
		strInput = InputBox(strMenu)

	End If

	' Вызывает процедуру ConnectOutput. Третий аргумент будет
	' использован как строка подключения, а четвертый 
	' как значение свойства SourceTableName.
	Select Case Val(strInput)

	Case 1
			ConnectOutput dbsTemp, 	"JetTable", ";DATABASE=C:\My Documents\Борей.mdb", 	"Employees"
	Case 2
			ConnectOutput dbsTemp, 	"FoxProTable", 	"FoxPro 3.0;DATABASE=C:\FoxPro30\Samples", "Q1Sales"
	Case 3
			ConnectOutput dbsTemp, 	"dBASETable", 	"dBase IV;DATABASE=C:\dBASE\Samples", "Accounts"
	Case 4
			ConnectOutput dbsTemp, 	"ParadoxTable", "Paradox 3.X;DATABASE=C:\Paradox\Samples", "Accounts"
	Case 5
			ConnectOutput dbsTemp, 	"ExcelTable", 	"Excel 5.0;" & 	"DATABASE=C:\Excel\Samples\Q1Sales.xls", "January Sales"
	Case 6
			ConnectOutput dbsTemp, 	"LotusTable", 	"Lotus WK3;" & 	"DATABASE=C:\Lotus\Samples\Sales.xls", 	"THIRDQTR"
	Case 7
			ConnectOutput dbsTemp, 	"CSVTable", "Text;DATABASE=C:\Samples", "Sample.txt"
	Case 8
			ConnectOutput dbsTemp, 	"HTMLTable", "HTML Import;DATABASE=http://" & 	"www.server1.com/samples/page1.html", "Q1SalesData"
	Case 9
			ConnectOutput dbsTemp, 	"ExchangeTable", "Exchange 4.0;MAPILEVEL=" & 	"Mailbox - Michelle Wortman (Exchange)" & "|People\Important;", "Jerry Wheeler"
	End Select

	dbsTemp.Close
End Sub

Sub ConnectOutput(dbsTemp As Database, strTable As String, strConnect As String, strSourceTable As String)

	Dim tdfLinked As TableDef
	Dim rstLinked As Recordset
	Dim intTemp As Integer

	' Создает новый объект TableDef,задает его свойства Connect
	' и SourceTableName на основании переданных аргументов,
	' добавляет объект в семейство TableDefs.
	Set tdfLinked = dbsTemp.CreateTableDef(strTable)

	tdfLinked.Connect = strConnect
	tdfLinked.SourceTableName = strSourceTable
	dbsTemp.TableDefs.Append tdfLinked
	Set rstLinked = dbsTemp.OpenRecordset(strTable)
	Debug.Print "Data from linked table:"
	' Отображает первые три записи присоединенной таблицы.
	intTemp = 1
	With rstLinked
		Do While Not .EOF And intTemp <= 3
			Debug.Print , .Fields(0), .Fields(1)
			intTemp = intTemp + 1
			.MoveNext
		Loop
		If Not .EOF Then Debug.Print , "[дополнительные записи]"
	.Close
	End With
	' Удаляет присоединенную таблицу, созданную
	' только для демонстрации.
	dbsTemp.TableDefs.Delete strTable
End Sub